Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/1159.ZIP/REPMODIN.FMT

Text File | 1986-07-19 | 717b | 28 lines

@ 1,15 SAY 'RECORD MODIFICATION PROCEDURE'
@ 2,36 SAY TOTALREC
@ 2,15 SAY 'Total number of records is'
@ 3,36 SAY RECNO()
@ 3,15 SAY 'Presently modifying record'
@ 4,0 SAY INSTNAME
@ 4,24 GET INST_TYPE
@ 5,0 SAY 'Command line:'
@ 5,14 GET COMLINE
@ 6,0 SAY 'Category, subcategories'
@ 6,24 GET SUBCATID
@ 8,0 SAY SERIALNUM
@ 8,24 GET SERIAL_NO
@ 10,0 SAY TVANUMBER
@ 10,24 SAY TVA_NO
@ 12,0 SAY CALIBDATE
@ 12,24 GET CALIB_DATE
@ 14,0 SAY DUEDATE
@ 14,24 GET CAL_DUE_DT
@ 16,0 SAY CALINTERVL
@ 16,28 SAY 'months'
@ 16,24 GET CALIB_INT
@ 18,0 SAY LOCATNAME
@ 18,24 GET LOCATION
@ 20,0 SAY REMARKNM
@ 21,0 GET REMARK
@ 23,0 SAY 'Press "Ctrl-End" when you are finished modifying information.'